home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
superv22.zip
/
GETCHAR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-11-03
|
366b
|
23 lines
Function GetChar : char;
Type
RegPack = record
AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags: Integer;
end;
Var
Regs: RegPack;
Temp: Integer;
Year,Mon,Day: Integer;
Begin
With Regs do
Begin
AX := $0000;
Intr($16,Regs);
GetChar := chr(lo(AX));
KeyCode := hi(AX);
End;
End;